home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / SELCITY.CMD < prev    next >
Encoding:
Text File  |  1988-01-05  |  6.8 KB  |  375 lines
  1. ASSI S5"XX"           ;PUT YOUR BAUD RATE HERE
  2. ASSI S6"XXXX9999"     ;PUT YOUR ID HERE
  3. ASSI S8"9999XXXX"     ;PUT YOUR PASSWORD HERE
  4. ASSI S7"    "
  5. SET DATA 7
  6. SET PARI EVEN
  7. CLEA
  8. START:
  9. CLEA
  10. LOCA 1,0
  11. MESS"   ╔════════════════════════╡   SELECT PCP CITIES   ╞══════════════════════╗"
  12. MESS"   ║                                                                       ║"
  13. MESS"   ║                                                                       ║"
  14. MESS"   ║       A - Atlanta       L - Los Angles       W - Riverside            ║"
  15. MESS"   ║       B - Boston        M - Miami            X - Salt Lake City       ║"
  16. MESS"   ║       C - Chicago       N - Milwaukee        Y - Santa Ana            ║"
  17. MESS"   ║       D - Cleveland     O - Minneapolis      Z - Sacramento           ║"
  18. MESS"   ║       E - Dallas        P - Newark           0 - San Diego            ║"
  19. MESS"   ║       F - Denver        Q - New York         1 - St Louis             ║"
  20. MESS"   ║       G - Detroit       R - Philedelphia     2 - San Francisco        ║"
  21. MESS"   ║       H - Glendale      S - Phoenix          3 - San Jose             ║"
  22. MESS"   ║       I - Hartford      T - Palo Alto        4 - Seattle              ║"
  23. MESS"   ║       J - Houston       U - Portland         5 - Tampa                ║"
  24. MESS"   ║       K - Kansas City   V - Research Tri.    6 - Washington, DC       ║"
  25. MESS"   ║                                                                       ║"
  26. MESS"   ║                                                                       ║"
  27. MESS"   ║                                                                       ║"
  28. MESS"   ║  % - Quit to Procomm       & - Portal        * - Net Exchange         ║"
  29. MESS"   ╠═══════════════════════════════════════════════════════════════════════╣"
  30. MESS"   ║      Enter the number(s) of the city(s) you wish to dial:             ║"
  31. MESS"   ║                                                                       ║"
  32. MESS"   ╚═══════════════════════════════════════════════════════════════════════╝"
  33. LOCA 21,6
  34. GET S0
  35. CHOICES:
  36. CLEA
  37. FIND S0"A"
  38. IF FOUN
  39. ASSI S1"Atlanta, GA [404]"
  40. ASSI S2"ATLANTA.CMD"
  41. ASSI S3"/GAATL"
  42. GOSU REDIALER
  43. ELSE
  44. ENDI
  45. FIND S0"B"
  46. IF FOUN
  47. ASSI S1"Boston, MA [617]"
  48. ASSI S2"BOSTON.CMD"
  49. ASSI S3"/MABOS"
  50. GOSU REDIALER
  51. ELSE
  52. ENDI
  53. FIND S0"C"
  54. IF FOUN
  55. ASSI S1"Chicago, IL [312, 1815]
  56. ASSI S2"CHICAGO.CMD"
  57. ASSI S3"/ILCHI"
  58. GOSU REDIALER
  59. ELSE
  60. ENDI
  61. FIND S0"D"
  62. IF FOUN
  63. ASSI S1"Cleveland, OH [216]
  64. ASSI S2"CLEVLAND.CMD"
  65. ASSI S3" /OHCLV"
  66. GOSU REDIALER
  67. ELSE
  68. ENDI
  69. FIND S0"E"
  70. IF FOUN
  71. ASSI S1"Dallas, TX [214, 817]"
  72. ASSI S2"DALLAS.CMD"
  73. ASSI S3"/TXDAL"
  74. GOSU REDIALER
  75. ELSE
  76. ENDI
  77. FIND S0"F"
  78. IF FOUN
  79. ASSI S1"Denver, CO [303]"
  80. ASSI S2"DENVER.CMD"
  81. ASSI S3"/CODEN"
  82. GOSU REDIALER
  83. ELSE
  84. ENDI
  85. FIND S0"G"
  86. IF FOUN
  87. ASSI S1"Detroit, MI [313]"
  88. ASSI S2"DETROIT.CMD"
  89. ASSI S3"/MIDET"
  90. GOSU REDIALER
  91. ELSE
  92. ENDI
  93. FIND S0"H"
  94. IF FOUN
  95. ASSI S1"Glendale, CA [818]"
  96. ASSI S2"GLENDALE.CMD"
  97. ASSI S3"/CAGLE"
  98. GOSU REDIALER
  99. ELSE
  100. ENDI
  101. FIND S0"I"
  102. IF FOUN
  103. ASSI S1"Hartford, CA [203]"
  104. ASSI S2"HARTFORD.CMD"
  105. ASSI S3"/CNHAR"
  106. GOSU REDIALER
  107. ELSE
  108. ENDI
  109. FIND S0"J"
  110. IF FOUN
  111. ASSI S1"Houston, TX [713]"
  112. ASSI S2"HOUSTON.CMD"
  113. ASSI S3"/TXHOU"
  114. GOSU REDIALER
  115. ELSE
  116. ENDI
  117. FIND S0"K"
  118. IF FOUN
  119. ASSI S1"Kansas City, MO [816, 913]"
  120. ASSI S2"KANSCITY.CMD"
  121. ASSI S3"/MOKAN"
  122. GOSU REDIALER
  123. ELSE
  124. ENDI
  125. FIND S0"L"
  126. IF FOUN
  127. ASSI S1"Los Angles, CA [213]"
  128. ASSI S2"ANGLES.CMD"
  129. ASSI S3"/CALAN"
  130. GOSU REDIALER
  131. ELSE
  132. ENDI
  133. FIND S0"M"
  134. IF FOUN
  135. ASSI S1"Miami, FL [305]"
  136. ASSI S2"MIAMI.CMD"
  137. ASSI S3"/FLMIA"
  138. GOSU REDIALER
  139. ELSE
  140. ENDI
  141. FIND S0"N"
  142. IF FOUN
  143. ASSI S1"Milwaukee, WI [414]"
  144. ASSI S2"MILLWKE.CMD"
  145. ASSI S3"/WIMIL"
  146. GOSU REDIALER
  147. ELSE
  148. ENDI
  149. FIND S0"O"
  150. IF FOUN
  151. ASSI S1"Minneapolis, MN [612]"
  152. ASSI S2"MINN.CMD"
  153. ASSI S3"/MNMIN"
  154. GOSU REDIALER
  155. ELSE
  156. ENDI
  157. FIND S0"P"
  158. IF FOUN
  159. ASSI S1"Newark, NJ  [201]"
  160. ASSI S2"NEWARK.CMD"
  161. ASSI S3"/NJNEW"
  162. GOSU REDIALER
  163. ELSE
  164. ENDI
  165. FIND S0"Q"
  166. IF FOUN
  167. ASSI S1"New York, NY  [212]"
  168. ASSI S2"NEWYORK.CMD"
  169. ASSI S3"/NYNYO"
  170. GOSU REDIALER
  171. ELSE
  172. ENDI
  173. FIND S0"R"
  174. IF FOUN
  175. ASSI S1"Philadelphia, PA  [215]"
  176. ASSI S2"PHILY.CMD"
  177. ASSI S3"/PAPHI"
  178. GOSU REDIALER
  179. ELSE
  180. ENDI
  181. FIND S0"S"
  182. IF FOUN
  183. ASSI S1"Phoenix, AZ  [602]"
  184. ASSI S2"PHOENIX.CMD"
  185. ASSI S3"/AZPHO"
  186. GOSU REDIALER
  187. ELSE
  188. ENDI
  189. FIND S0"T"
  190. IF FOUN
  191. ASSI S1"Palo Alto, CA  [415, 408]"
  192. ASSI S2"PALOALTO.CMD"
  193. ASSI S3"/CAPAL"
  194. GOSU REDIALER
  195. ELSE
  196. ENDI
  197. FIND S0"U"
  198. IF FOUN
  199. ASSI S1"Portland, OR  [503]"
  200. ASSI S2"PORTLAND.CMD"
  201. ASSI S3"/ORPOR"
  202. GOSU REDIALER
  203. ELSE
  204. ENDI
  205. FIND S0"V"
  206. IF FOUN
  207. ASSI S1"Research Triangle Park, NC  [919]"
  208. ASSI S2"RESEARCH.CMD"
  209. ASSI S3"/NCRTP"
  210. GOSU REDIALER
  211. ELSE
  212. ENDI
  213. FIND S0"W"
  214. IF FOUN
  215. ASSI S1"Riverside, CA  [714]"
  216. ASSI S2"RIVERSID.CMD"
  217. ASSI S3"/CARIV"
  218. GOSU REDIALER
  219. ELSE
  220. ENDI
  221. FIND S0"X"
  222. IF FOUN
  223. ASSI S1"Salt Lake City, UT  [801]"
  224. ASSI S2"SALTLAKE.CMD"
  225. ASSI S3"/UTSLC"
  226. GOSU REDIALER
  227. ELSE
  228. ENDI
  229. FIND S0"Y"
  230. IF FOUN
  231. ASSI S1"Santa Ana, CA  [714]"
  232. ASSI S2"SANTANA.CMD"
  233. ASSI S3"/CASAN"
  234. GOSU REDIALER
  235. ELSE
  236. ENDI
  237. FIND S0"Z"
  238. IF FOUN
  239. ASSI S1"Sacramento, CA  [916]"
  240. ASSI S2"SACRAMNT.CMD"
  241. ASSI S3"/CASAC"
  242. GOSU REDIALER
  243. ELSE
  244. ENDI
  245. FIND S0"0"
  246. IF FOUN
  247. ASSI S1"San Diego, CA  [619]"
  248. ASSI S2"SANDIEGO.CMD"
  249. ASSI S3"/CASAD"
  250. GOSU REDIALER
  251. ELSE
  252. ENDI
  253. FIND S0"1"
  254. IF FOUN
  255. ASSI S1"St. Louis, MO  [314, 618]
  256. ASSI S2"STLOUIS.CMD"
  257. ASSI S3"/MOSLO"
  258. GOSU REDIALER
  259. ELSE
  260. ENDI
  261. FIND S0"2"
  262. IF FOUN
  263. ASSI S1"San Francisco, CA [415]
  264. ASSI S2"SANFRAN.CMD"
  265. ASSI S3"/CASFA"
  266. GOSU REDIALER
  267. ELSE
  268. ENDI
  269. FIND S0"3"
  270. IF FOUN
  271. ASSI S1"San Jose, CA  [408, 415]"
  272. ASSI S2"SANJOSE.CMD"
  273. ASSI S3"/CASJO"
  274. GOSU REDIALER
  275. ELSE
  276. ENDI
  277. FIND S0"4"
  278. IF FOUN
  279. ASSI S1"Seattle, WA  [206]"
  280. ASSI S2"SEATTLE.CMD"
  281. ASSI S3"/WASEA"
  282. GOSU REDIALER
  283. ELSE
  284. ENDI
  285. FIND S0"5"
  286. IF FOUN
  287. ASSI S1"Tampa, FL  [813]"
  288. ASSI S2"TAMPA.CMD"
  289. ASSI S3"/FLTAM"
  290. GOSU REDIALER
  291. ELSE
  292. ENDI
  293. FIND S0"6"
  294. IF FOUN
  295. ASSI S1"Washington, DC  [202, 703, 301]"
  296. ASSI S2"WASHDC.CMD"
  297. ASSI S3"/DCWAS"
  298. GOSU REDIALER
  299. ELSE
  300. ENDI
  301. FIND S0"%"
  302. IF FOUN
  303. ALAR
  304. MESS"DELETING NO ANSWER FILES"
  305. DOS"DEL *."
  306. EXIT
  307. ELSE
  308. ENDI
  309. FIND S0"&"
  310. IF FOUN
  311. ASSI S1"PORTAL"
  312. ASSI S2"PORTAL.CMD"
  313. ASSI S3"PORTAL"
  314. GOSU DIRECT
  315. ELSE
  316. ENDI
  317. FIND S0"*"
  318. IF FOUN
  319. ASSI S1"Net Exchange BBS"
  320. ASSI S2"NETCONT.CMD"
  321. ASSI S3"PURSUIT"
  322. GOSU DIRECT
  323. ELSE
  324. ENDI
  325. FIND S7"MORE"
  326. IF FOUN
  327. ASSI S7"    "
  328. GOTO CHOICES
  329. ENDI
  330. MESS"NO CITY REQUESTED"
  331. MESS"EXITING TO PROCOMM"
  332. ALAR
  333. EXIT
  334. DIRECT:
  335. CLEA
  336. LOCA 5, 30
  337. MESS"DIALING
  338. MESS" "
  339. MESS S1
  340. TRAN"C "
  341. TRAN S3
  342. GOTO CONTINUE
  343. REDIALER:
  344. CLEA
  345. LOCA 5, 30
  346. MESS"DIALING"
  347. MESS" "
  348. MESS S1
  349. TRAN"C DIAL"
  350. TRAN S3
  351. TRAN"/"
  352. TRAN S5
  353. CONTINUE:
  354. TRAN","
  355. TRAN S6
  356. TRAN"!"
  357. WAIT"="
  358. TRAN S8
  359. TRAN"!"
  360. RGET S9
  361. RGET S9 80 40
  362. RGET S9 40
  363. PAUS 1
  364. FIND S9"CONNECTED"
  365. IF FOUN
  366. ALAR
  367. EXEC S2
  368. ELSE
  369. MESS S1
  370. MESS"Busy --- Going to Next City..."
  371. ASSI S7"MORE"
  372. MESS"*********************************************************************"
  373. ENDI
  374. RETURN
  375.